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module EXAMPLE: 

input RESET, START; output GOT; 

signal REQUEST, GRANT in 

loop abort % RESET restarts the loop 

await START; 
emit REQUEST; 

present GRANT then emit GOT end 
| | % run concurrently 

loop 

present REQUEST then emit GRANT end; 
pause; % wait for the next cycle 

pause 
end 

when RESET end 
end. 



Figure 2A 

P : q p; q; 



Figure 2B 

emits s = 1; 

Figure 2C 

loop p end for (;;) p; 



Figure 2D 

present S then p else q end 



if (S) p; elseq; 
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pause state = k; 

if (level < 1) level = 1; 
goto Join; 
case k: 



Figure 3B 

await S goto Entry; 

case k: 

if (!S) { 
Entry: 

state = k; 

if (level <1) level = 1; 
goto Join; 
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abort 



body 



when S 



goto Entry; 



case k: 



if (IS) 



switch (state) { 

Entry: body; 

> 



suspend 



body 
when S 
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case k: 



goto Entry; 



if(S){ 



if (level <1) level = 1; 
goto Join; 

> 

switch (state) { 

Entry: body; 

} 
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signal S in S = 0; 

goto Entry; 
casek: 

S = 0; 

switch (state) { 
body Entry: body; 

end } 
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exit T; if (level < 2) level = 2; 

goto Join; 
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trap T in 



innerLevel = 0; 



fork StartA, StartB; 
case k: 

innerLevel = 0; 

fork ResumeA, ResumeB; 

ResumeA: 

switch (statep) { 



bodyA 



StartA: bodyA; 
case 0: ; 

} 

goto InnerJoin; 



II 



ResumeB: 



bodyA 



switch (stateq) { 
StartB: bodyB; 
case 0: ; 



goto InnerJoin; 



InnerJoin: 
join; 



handle T do 



switch (innerLevel) { 
easel: I* paused*/ 



state = k* 

if (level <1) level = 1; 
goto OuterJoin; 



case 2: /* exited */ 



end 



handler 



handler, 
break; 



} 



Figure 4 



pause; 
pause; 

abort 

pause; 
pause; 

abort 

pause; 
pause 

when A; 

pause; 

pause 

when B 



Start: goto LO; 
Resume: 
switch (s & 0x3) { 
LO: 8=1; goto Join; 
case 1: s=2; goto Join; 
case 2: goto L1 ; 
case 3: if (!B) 

switch (s»2 & 0x7 ) { 

L1 : s=3 1 0«2; goto Join; 

case 0: s=3 1 1«2; goto Join; 

case 1 : goto L2; 

case 2: if (1A) 

switch (s»5) { 

L2: s=3 1 2«2 1 0«5; goto Join; 
case 0: s=3 | 2«2 1 1 «5; goto Join; 
case 1 : 
} 

s=3 | 2«3; goto Join; 
case 3: s=3 | 2«4; goto Join; 
case 4: 
} 

s = 0; goto Join; 

case 0: ; /* not running */ 

} 

Join: 
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loop 



end 



trap T in 
loop 



end 



end 



present A 
then 

emit B 

end; 
pause; 



pause; 
exit T; 



if (inLaterCycles) { 



II 



if (A) then B = 1; 
I* pause (level 1) */ 

I* exit T (level 2)*/ 



if (A) then B = 1; 
I* pause (level 1) */ 



P pause (level 1) */ 
inLaterCycles = 1; 
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Figure 6A 

1 /* THE THREE MAIN DATA TYPES OFACCFG: CNODE, PROCESS, and THREAD, 

2 MAIN DA TA TYPE OF SCFG IS SNODE. 
3 

4 cnode = node in the acyclic concurrent control-flow graph (accfg) 

5 snode = node in the sequential control-flow graph (scfg) */ 
6 

7 /* The properties of a cnode are defined as follows: */ 
8 

9 cnode : : pthr eads ; /* Threads to which this cnode belongs ("parents ") Most 

10 nodes belong to exactly one thread. The exceptions are join nodes, which belong to each 

1 1 thread they join, and the topmost process, which belongs to no thread */ 
12 

13 /* A "predecessor " is a (snode, condition) pair that will be used as the source and label 

14 respectively of an added arc. Each predecessor is an snode that could run a cnode */ 
15 

16 cnode : : runningPredecessors ; /* set of normal snodes */ 

17 cnode: : restartPredecessor ; /* restart snode V 
18 

19 /* The distinction between the two types of predecessor (i.e., "running" and "restart") is 

20 used in the "suspend any running thread in process p " routine, which avoids creating 

21 save state nodes for restart nodes. */ 
22 

23 cnode : : index; /* integer index of the node, (topological order number) */ 
24 

25 cnode : : state ; /* Possible states are: Running, Runnable, or Suspended. Only a 

26 "process" can be in a "Running" state, which means it contains a thread which is 

27 actively executing. */ 



"M&A For Converting A CCFG Into A SCFG," to S. Edwards, App. No. 09/477,688. 



Figure 6B 



1 /* A Process is a cnode (and therefore inherits the properties of a cnode) that 

2 corresponds to a fork node and contains one or more threads. 

3 A process } s state may be Suspended, Runnable, or Running. 

4 A Suspended process is contained in a thread that is not running. 

5 A Runnable process is contained in a thread that is running, but none of the 

6 threads contained in the process are running. A Runnable process is ready to restart one 

7 of the threads it contains. 

8 A Running process means one of its contained threads is currently running (i.e., 

9 executing instructions). 
10 

1 1 Suspending the running thread within a process changes the process 's state from 

1 2 Running to Runnable. This is typically followed by starting (or restarting) another 

1 3 thread, contained within the process, which changes the process 's state from Runnable 

14 back to Running. This suspension of one thread and the starting (or restarting) of 

1 5 another thread is also known as a "context switch. " 
16 

1 7 The properties of a process and a thread are as follows. */ 

18 

1 9 process : : threads ; /* The threads contained in the process */ 
20 

21 proces s : : runningThread ; /* Indicates which, if any, of the threads contained in 

22 the process is the currently running thread. */ 
23 

24 thread : : proces s ; /* Which process contains this thread */ 
25 

26 thread : : cnodes ; /* The cnodes in this thread that could be executed next */ 



27 

28 thread : : s tateVariable ; /* State variable used for saving the state of the thread 

29 when the thread is suspended. This state variable is subsequently read when the thread 

30 is resumed. */ 
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Figure 6C 



1 /* MAIN ROUTINE: "synthesize a scfg " 

2 This main routine synthesizes the scfg from the input accfg */ 
3 

4 synthesize a scfg 

5 { 

6 /* INITIALIZATION: Create the outermost process and a single thread within in. Put the 

7 first scheduled node in this thread. The thread starts out suspended; the first iteration of 

8 the main loop will resume it. */ 
9 

10 en = create the SCFG entry node; 
11 

12 op = create the outermost process; 
13 

14 op. state = Runnable; 
15 

16 op . runningThread = none; 
17 

18 op. runningPredecessors += (en, - ) ; /* Entry node "en" is made to be 

1 9 the runningPredecessor of "op " and the edge from op to en has no label as indicated by 

20 the hyphen */ 
21 

22 op . pthreads = empty /* By definition, the outermost process is not in a thread. */ 
23 

24 op. restartPredecessor = empty; 
25 

26 tt = new thread; 
27 

28 op. threads += tt; 
29 

30 tt. process = op; 
31 

32 fn = first node in the schedule; 
33 

34 /* Set the state variable used by the outermost thread */ 

35 tt . stateVariable = f n . index 
36 

37 tt.cnodes += fn; 
38 

39 fn. pthreads += tt; /* Put the first node in the top thread */ 
40 

41 fn. state = Suspended; 
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Figure 6D 



1 /* MAIN LOOP: successively assigns to current node "cn " each cnode of the input accfg 

2 in order of the topological sort. */ 
3 

4 for each node cn in scheduled order { 
5 

6 sn = copy node cn and its expression into the SCFG; 

7 th = first thread in cn.pthreads; /* Thread of this node */ 
8 

9 /* Rest of this loop is divided into four main code blocks labeled A, B, C and D. 

1 0 For each cnode assigned to cn, a code block from A or B, and a code block 

1 1 selected from C or D, is executed. 
12 

1 3 The pair of code blocks selected for execution depends on the type of the cnode, 

1 4 and is illustrated by the following table: 

1 6 cnode type: Normal Fork Join 

1 7 selection from A or B: B B A 

1 8 selection from C or D: D CD 
19 

20 iff cn is a join node ) { 

21 /* CODE BLOCK A */ 

22 /* Earlier, this join node would have been placed in all of the threads it 

23 was joining. Run it in its parent's thread. */ 

24 p = th, process; 

25 th = thread in p.pthreads; /* unique since this is a process */ 

26 switch to thread th; 

27 suspend any running thread in p; 

28 run cnode p as snode sn; 

29 th. cnode s -= p; /* Delete the now-terminated process */ 
30 

31 } e 1 s e { /* cn is a Normal or Fork node V 

32 /* CODE BLOCK B */ 

33 switch to thread th; 

34 run cnode cn as snode sn; 

35 /* We've run cn, so it no longer plays a role in the thread */ 

36 th. cnode s -= cn; 

37 } 
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Figure 6E 



1 if ( cn is a fork node ) { 

2 /* CODE BLOCK C*/ 

3 process = new process; 

4 process . state = Runnable; 

5 process . runningThread = none; 

6 process . runningPredecessors += (sn, -) ; /*Notethat 

7 edge from "process" to sn has a empty label */ 

8 process . restartPredecessor = empty; 

9 th . cnodes += process ; /* Put the new process in its thread */ 

10 for ( each successor ens of cn ) { 

11 /* Create a new thread for each successor and put the successor 

12 node in the new thread. */ 

13 thread = new thread; 

14 process . threads += thread; 

15 thread. stateVariable = ens. index; /* Set the state 

16 variable for "thread" to have a default value being the topological 

17 index of ens. */ 

18 thread. cnodes += ens; 

19 put cnode ens in thread thread; 

20 /* Initialize state of successor */ 

21 ens. state = Suspended; 

22 } 
23 

24 } else { /* This is a Normal or Join node */ 

25 /* CODE BLOCK D V 

26 for ( each successor ens of cn ) { 

27 th. cnodes += ens; 

28 put cnode ens in thread th; 

29 ens . runningPredecessors += (sn, edge 

30 condition from cn to ens in the input accfg) ; 

31 } /* end "for ( each successor ens of cn ) " */ 

32 } /* end "else" */ 
33 



34 } /* end MAIN LOOP */ 
35 

36 } /* end "synthesize a scfg" */ 
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Figure 6F 



1 run cnode cn as snode sn 

2 { 

3 for ( each node snp in cn. runningPredecessors ) 

4 add an edge from snp to sn, labeled like the 

5 predecessor edge from cn to snp; 
6 

7 if ( cn.restartPredecessor is not empty ) 

8 add an edge from cn.restartPredecessor to sn, labeled 

9 like the predecessor edge from cn to 
10 cn. restartPredecessor ; 

11 

12 /* having used these predecessor edges, they should now be removed */ 

13 cn. runningPredecessor = empty; 

14 cn.restartPredecessor = empty; 

15 } 
16 

17 

18 put cnode ens in thread th 

19 { 

20 if th is not already in ens .pthreads, 

21 cns.pthreads += th; 

22 } 
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Figure 6G 

1 switch to thread th 

2 { 

3 /* "switch to thread th " does nothing if the thread is already running. If the thread is not 

4 running, it saves the state of any already-running thread (suspends it) and restarts the 

5 desired thread, */ 
6 

7 /* If there is at least one thread above "th, " make sure it is also running */ 

8 if ( th. process .pthreads is not empty ) 

9 /* The parent thread is unique for a process */ 

10 switch to thread th. process .pthreads ; 
11 

12 p = th. process; 
13 

14 /* If a different thread is running, suspend it */ 

15 if ( p. state == Running AND p . runningThread ! = th ) 

16 suspend any running thread in p; 
17 

18 if ( p. state == Runnable ) { 

19 /* Restart our thread by adding a restart node and making this restart node a 

20 predecessor of each suspended node. */ 
21 

22 rn = new restart node( th. stateVariable ); /* Build a 

23 restart node (of SCFG) which tests state of the stateVariable for thread which is 

24 to be switched to. This stateVariable needs to have been set appropriately when 

25 thread th was previously suspended. */ 
26 

27 run cnode p as snode rn; 
28 

29 for ( each cnode cn in th.cnodes ) { 

30 cn.restartPredecessor = (rn, cn. index); /* Create an 

31 edge from cn to rn whose label has the value cn.index */ 
32 

33 cn. state = Runnable; 

34 } 
35 

36 p. state = Running; 

37 p . runningThread = th; 
38 

39 } /* end "if(p.state == Runnable ) " V 
40 

41 } /* end "switch to thread th " */ 
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Figure 6H 

1 suspend any running thread in process p 

2 { 

3 if ( p. state == Running ) { 

4 /* This process has a running thread ~ suspend it */ 

5 p. state = Runnable; 

6 th = p.runningThread; 

7 restartNode = none; /* Set when the restart node needs a default arc 

8 leading from it to suspend this thread */ 
9 

10 /* Save state if there is more than one running cnode in the thread */ 

11 needToSaveState = true if there is more than one cnode 

12 in th; 

13 needToSaveState = false if there is not more than one 

14 cnode in th; 
15 

16 /* Suspend each cnode in the the thread */ 
17 

18 for ( each cnode cn in th.cnodes ) { 
19 

20 /* Suspend any running threads in a process node */ 

21 if ( cn is a process ) 

22 suspend any running thread in cn; 
23 

24 /* Suspend all running predecessors for this node */ 

25 if ( cn. runningPredecessors is not empty ) { 
26 

27 if ( needToSaveState ) { 

28 sn = new save state node (state for this 

29 thread = cn. index ); /* Makes the "expression" 

30 of sn be the following assignment statement: 

31 th. state Variable = cn. index. */ 
32 

33 for ( each snode snp in 

34 cn . runningPredecessors ) 

35 add an edge from snp to sn, labeled 

36 like the predecessor edge from cn 

37 to snp; 
38 

39 cn. runningPredecessors = empty; /* having 

40 used these predecessor edges, they should now be removed 

41 */ 
42 

43 p. runningPredecessors += (sn, -) ; /* add 

44 an edge from p.runningPredecessors to sn, with no label */ 
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Figure 61 



1 } else { /* do not save state V 

2 for ( each snode snp in 

3 cn. runningPredecessors ) 

4 p. runningPredecessors += (snp, take 

5 label from the edge cn to snp) ; 
6 

7 cn. runningPredecessors = empty; /* having 

8 used these predecessor edges, they should now be removed 

9 */ 

10 } /* end "else" V 

11 

12 } /* end "iff cn.runningPredecessors is not empty ) " */ 

13 

14 /* Rembmer the restart node if this node has a restart predecessor. */ 

15 

16 if ( cn. restartPredecessor is not empty ) { 

17 restartNode = cn. restartPredecessor ; 

18 /* Remove this precessor edge since it is empty */ 

19 cn. restartPredecessor = empty; 

20 } 
21 

22 cn. state = Suspended; 

23 

24 } /* end ' for ( each cnode cn in tkcnodes ) " */ 

25 

26 p . runningThread = none; 

27 

28 if ( restartNode is not none ) { 

29 /* At least one node had a restart predecessor: make sure an arc with a default 

30 condition is added from the restart node to handle this condition */ 

31 p. runningPredecessors += (restartNode, -) ; 

32 } 
33 



34 } /* end if (p. state == Running) */ 
35 

36 } /* end a suspend any running thread in process p " */ 
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